home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_13292_HWClickCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  1.3 KB  |  50 lines
  1. global gTToolsInstalled, gTTKName,gHTile
  2. put line ln of (alternatetext of window wn) into nwn
  3. if number of words in nwn¡0 then
  4. if there is not a window nwn then
  5. cbusy
  6. if (gHTile="" or gHTile>100) then put 0 into gHTile
  7. maxmem
  8. if WinSpace(nwn,"R") then
  9. TextXWindow 32051,nwn,true,5
  10. if there is a window nwn then
  11. isEBW nwn
  12. set the saveRezName of window nwn to nwn
  13. if (gTToolsInstalled = "true") then
  14. get getstackpath() & gTTKName
  15. else
  16. get getstackpath()&"the library"
  17. end if
  18. set savefilename of window nwn to it
  19. put offsetR("5,"&gHTile+205&",318,"& gHTile+360) into r
  20. add 12 to gHTile
  21. set rect of window nwn to r
  22. send readRez to window nwn
  23. set lineheight of window nwn to 15
  24. set the textselection of window nwn to "0,0"
  25. set returnclickline of window nwn to false
  26. if the optionkey = "down" then
  27. set saveChanges of window nwn to true
  28. set saveMethod of window nwn to "Resource"
  29. set the editstate of window nwn to 2
  30. else
  31. set saveChanges of window nwn to false
  32. end if
  33. set saveAlertID of window nwn to GetDlgID(328)
  34. set dontwrap of window nwn to false
  35. if the number of chars in the text of window nwn > 0 then
  36. set visible of window nwn to true
  37. send endEdit to window nwn
  38. else
  39. close window nwn
  40. beep
  41. answer tStr("LibMsg",36)&"e&nwn"e&"."
  42. end if
  43. else
  44. loMem nwn
  45. end if
  46. else
  47. loMem nwn
  48. end if
  49. end if
  50. end if